Option Explicit
Sub N_Sample022()
    Dim i                     As Long
    Dim myAr(1 To 20, 1 To 5) As Long			'w}C
    For i = 1 To 100
        myAr((i - 1) \ 5 + 1, (i - 1) Mod 5 + 1) = i
    Next
    Cells(1, 1).Resize(20, 5).Value = myAr		'NJxs
End Sub
